﻿

Public Class AnguloSourceGridInfo
    Private WithEvents clickEvent As New SourceGrid.Cells.Controllers.CustomEvents
    Private WithEvents clickMe As New SourceGrid.Cells.Controllers.CustomEvents

    Private Sub LptPrint()
        'Dim print As New angMatricial.ImprimeTexto
        'With print
        '    .Inicio("LPT1")
        '    .ImpLF(.NegritoOn + "Negrito ligado" + .NegritoOff)
        '    .ImpLF(.Expandido + "Expandido" + .Normal)
        '    .ImpLF(.Comprimido + "Comprimido" + .Normal)
        '    .Pula(2)
        '    .ImpCol(10, "Coluna 10")
        '    .ImpCol(40, "Coluna 40")
        '    .Pula(2)
        '    .Imp(ChrW(27) & "0") '-- Espaçamento 1/8
        '    .ImpLF("8 linha ppp")
        '    .ImpLF("8 linha ppp")
        '    .ImpLF("8 linha ppp")
        '    .Imp(ChrW(27) & "2") '-- Epaçamento 1/6
        '    .ImpLF("6 linha ppp")
        '    .ImpLF("6 linha ppp")
        '    .ImpLF("6 linha ppp")
        '    .Pula(2)
        '    .Fim()
        'End With
    End Sub

    Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
        Me.Close()
    End Sub
End Class